home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / SHARED.DIR / 01958_Script_BASIC FACTS < prev    next >
Text File  |  1995-09-13  |  5KB  |  176 lines
  1. Global gBtn1, gBtn2, gBtn3, gBtn4, gBtn5, gBtn6, gBtn7, gBtn8, gBtn9, ¼
  2. gBtn16, gBtn17, gBtn18, gNewMarker, gBtnBF1, gBtnBF2, gBtnBF3, gBtnBF4, gBtnBF5, ¼
  3. gBtnBF6, gBtnBF7, gBtnBF8, gBtnBF9, gBtnBF10, gBtnBF11, gBtnBF12,gTheHelpIsOn
  4.  
  5. on BFSetUp
  6.   set ScriptNumber = the number of cast "a3StateButton"
  7.   set gBtnBF1 = birth(script ScriptNumber, 4, 175, 0, "BF01", "HandCursor")
  8.   set gBtnBF2 = birth(script ScriptNumber, 5, 179, 0, "BF02", "HandCursor")
  9.   set gBtnBF3 = birth(script ScriptNumber, 6, 183, 0, "BF03", "HandCursor")
  10.   set gBtnBF4 = birth(script ScriptNumber, 7, 187, 0, "BF04", "HandCursor")
  11.   set gBtnBF5 = birth(script ScriptNumber, 8, 191, 0, "BF05", "HandCursor")  
  12.   set gBtnBF6 = birth(script ScriptNumber, 9, 195, 0, "BF06", "HandCursor")
  13.   set gBtnBF7 = birth(script ScriptNumber, 10, 199, 0, "BF07", "HandCursor")
  14.   set gBtnBF8 = birth(script ScriptNumber, 11, 203, 0, "BF08", "HandCursor")
  15.   set gBtnBF9 = birth(script ScriptNumber, 12, 207, 0, "BF09", "HandCursor")
  16.   set gBtnBF10 = birth(script ScriptNumber, 13, 211, 0, "BF10", "HandCursor")
  17.   set gBtnBF11 = birth(script ScriptNumber, 14, 215, 0, "BF11", "HandCursor")
  18.   set gBtnBF12 = birth(script ScriptNumber, 15, 219, 0, "BF12", "HandCursor")
  19. end
  20.  
  21. on VGlobalBFRollover
  22.   if (the MouseV < 250) then
  23.     if hilightPullDown (gBtn1) then exit
  24.     if hilight (gBtn17) then exit
  25.     if hilight (gBtn16) then exit
  26.     if hilight (gBtnBF1) then exit
  27.     if hilight (gBtnBF2) then exit
  28.     if hilight (gBtnBF3) then exit
  29.     if hilight (gBtnBF4) then exit
  30.     if hilight (gBtnBF5) then exit
  31.     if hilight (gBtnBF6) then
  32.       exit
  33.     end if
  34.   else
  35.     if rollover(38) then
  36.       if gTheHelpIsOn = 1 then
  37.         puppetsound "SV142100.AIF"
  38.         updatestage
  39.         repeat while rollover(38)
  40.           nothing
  41.         end repeat
  42.       end if
  43.       puppetsound 0
  44.     end if
  45.     if hilight (gBtn2) then exit
  46.     if hilight (gBtn3) then exit
  47.     if hilight (gBtn4) then exit
  48.     if hilight (gBtn5) then exit
  49.     if hilight (gBtn6) then exit
  50.     if hilight (gBtn7) then exit
  51.     if hilight (gBtn8) then exit
  52.     if hilight (gBtn9) then exit
  53.     if hilight (gBtnBF7) then exit
  54.     if hilight (gBtnBF8) then exit
  55.     if hilight (gBtnBF9) then exit
  56.     if hilight (gBtnBF10) then exit
  57.     if hilight (gBtnBF11) then exit
  58.     if hilight (gBtnBF12) then exit
  59.   end if
  60. end
  61.  
  62. on EGlobalBFRollover
  63.   if (the MouseV < 250) then
  64.     if hilightPullDown (gBtn1) then exit
  65.     if hilight (gBtn17) then exit
  66.     if hilight (gBtn18) then exit
  67.     if hilight (gBtnBF1) then exit
  68.     if hilight (gBtnBF2) then exit
  69.     if hilight (gBtnBF3) then exit
  70.     if hilight (gBtnBF4) then exit
  71.     if hilight (gBtnBF5) then exit
  72.     if hilight (gBtnBF6) then 
  73.       exit
  74.     end if
  75.   else
  76.     if rollover(38) then
  77.       if gTheHelpIsOn = 1 then
  78.         puppetsound "SE142100.AIF"
  79.         updatestage
  80.         repeat while rollover(38)
  81.           nothing
  82.         end repeat
  83.       end if
  84.       puppetsound 0
  85.     end if
  86.     if hilight (gBtn2) then exit
  87.     if hilight (gBtn3) then exit
  88.     if hilight (gBtn4) then exit
  89.     if hilight (gBtn5) then exit
  90.     if hilight (gBtn6) then exit
  91.     if hilight (gBtn7) then exit
  92.     if hilight (gBtn8) then exit
  93.     if hilight (gBtn9) then exit
  94.     if hilight (gBtnBF7) then exit
  95.     if hilight (gBtnBF8) then exit
  96.     if hilight (gBtnBF9) then exit
  97.     if hilight (gBtnBF10) then exit
  98.     if hilight (gBtnBF11) then exit
  99.     if hilight (gBtnBF12) then exit
  100.   end if
  101. end
  102.  
  103.  
  104. on AGlobalBFRollover
  105.   if (the MouseV < 250) then
  106.     if hilightPullDown (gBtn1) then exit
  107.     if hilight (gBtn16) then exit
  108.     if hilight (gBtn18) then exit
  109.     if hilight (gBtnBF1) then exit
  110.     if hilight (gBtnBF2) then exit
  111.     if hilight (gBtnBF3) then exit
  112.     if hilight (gBtnBF4) then exit
  113.     if hilight (gBtnBF5) then exit
  114.     if hilight (gBtnBF6) then 
  115.       exit
  116.     end if
  117.   else
  118.     if rollover(38) then
  119.       if gTheHelpIsOn = 1 then
  120.         puppetsound "SA142100.AIF"
  121.         updatestage
  122.         repeat while rollover(38)
  123.           nothing
  124.         end repeat
  125.       end if
  126.       puppetsound 0
  127.     end if
  128.     if hilight (gBtn2) then exit
  129.     if hilight (gBtn3) then exit
  130.     if hilight (gBtn4) then exit
  131.     if hilight (gBtn5) then exit
  132.     if hilight (gBtn6) then exit
  133.     if hilight (gBtn7) then exit
  134.     if hilight (gBtn8) then exit
  135.     if hilight (gBtn9) then exit
  136.     if hilight (gBtnBF7) then exit
  137.     if hilight (gBtnBF8) then exit
  138.     if hilight (gBtnBF9) then exit
  139.     if hilight (gBtnBF10) then exit
  140.     if hilight (gBtnBF11) then exit
  141.     if hilight (gBtnBF12) then exit
  142.   end if
  143. end
  144.  
  145. on BFKill
  146.   WatchCursor
  147.   hideControl (gBtnBF1)
  148.   hideControl (gBtnBF2)
  149.   hideControl (gBtnBF3)
  150.   hideControl (gBtnBF4)
  151.   hideControl (gBtnBF5)
  152.   hideControl (gBtnBF6)
  153.   hideControl (gBtnBF7)
  154.   hideControl (gBtnBF8)
  155.   hideControl (gBtnBF9)
  156.   hideControl (gBtnBF10)
  157.   hideControl (gBtnBF11)
  158.   hideControl (gBtnBF12)
  159.   set gBtnBF1 = 0
  160.   set gBtnBF2 = 0
  161.   set gBtnBF3 = 0
  162.   set gBtnBF4 = 0
  163.   set gBtnBF5 = 0
  164.   set gBtnBF6 = 0
  165.   set gBtnBF7 = 0
  166.   set gBtnBF8 = 0
  167.   set gBtnBF9 = 0
  168.   set gBtnBF10 = 0
  169.   set gBtnBF11 = 0
  170.   set gBtnBF12 = 0
  171. end 
  172.  
  173. on resetBF
  174.   go "BFStart"
  175. end
  176.